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r~^ Artificial Intelligence Project— RLE and MIT Computation Center 

w Memo 35 — LAP (LISP ASSEMBLY PROGRAM) 

LAP is an internal two pass assembler for LISP 1«5« It is a 
pseudo-function with two arguments called the listing and the 
symbol table* 

Before defining LAP precisely, we shall give two examples: 

Example 1: 

PR0*2 is defined as: (LAMBDA (X Y) Y) 

The LAP program for PR002 is: 

LAP 4JT PR062. SUBR 2) (XCA) (TRA 1 4)) NIL) 

Example 2: 

At location 8763^ the following patch is to be made: 

l^lfi.-. PDX ,2 

TXL A,2,4CAR-1 

TXH *+3,2,$CAR* 

CLA (BAD ARffOMENT) in decrement of word 

TRA ER1 

A TRA 2,k 

where ER1 is location 120*3 10< 

The LAP program is as follows: 

LAP (( 8?i3Q 

(PDX 2) 

(TXL {(* 3) 2 ((ECAR) -1» 
(TXH A 2 (E CAR)) 
(CLA (QUOTE (BAD ARGUMENT) )) 
(TRA ER1) 
A (TRA 2 4) 

) ((ER1 . 12043)) ) 

Definitions: 

First argument of LAP: Listing 
Second argument of LAP: Symfcab 

^* 11 wgii ********** 

The listing is a one level list of items each of which is either 
an origin an instruction or a symbol . 

The first item on the listing is always the origin. 

Any item except the first is a symbol if it is atomic. 

Any item except the first is an ins t ruction if it is non-atonic, 
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Origin: 

The first symbol on the listing is taken as the origin 
statement. It is Interpreted as follows: 

1„ If the origin is a LISP number, then the assembly will 
begin at that location . It may be an octal number or a decimal 
number » 

2. If the origin iu an atomic symbol other than NIL, it must have 
a SYM on its property list* or error LI will occur. A SYM on the 
property list of anatomic symbol Indicates a value, op-code, location, 
or some other quantity for LAP. The low order bits of the number 
pointed to by the SYM are taken as the origin. See OPDEFINB. 

3. If the origin is NIL, the assembly will 3tart at the first 
available location In Binary Program Space (BPS). The origin 
marker for BPS will be updated td avoid writing over this assembly by 
the next assembl:/. If the assembly Is terminated by an error, 

this does not occur. lit* after the first pass, the assembler 
determines that there 1) not room in BPS for the entire assembly, 
then the second pass is cancelled and no assembly takes place. This Is 
error condition L2. 

4. If the origin is, a list of the type (name type n), then the 
assembly is In BPS with th«? same protective devices as in case 3 
above. After the as seiroly is completed, a pointer to the binary 
program Is placed on Che property list of the atomic symbol name. 
The pointer is flaggy by the atomic symbol "type" which is 
usually StJBR or FSUBS. The number of arguments ,E n" is placed in 
the decremetifc of uhe pointer. The prefix contains the op-code 
TXL. 

In example 1* the origin (PR0G2 SUBR 2) put the following pointer 
on the property list of PR0CJ2: 



SUBR 



_Jr*( 



:±: 



TXL begin,, 21 



Symbols: 

Atomic symbols appearing on the top level of the listing are 
defined as having the value of the next instruction following the 
symbol. Any number of symbols may appear at any point in the 
listing. During pass 1, a symbol table is built up. It might look 
like this: 
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((A.3^26Q) (SYB0Lv3425Q)) 
If the second argument of LAP is not NIL, it will be taken as the 
initial symbol table . 
Ins true t ions : 

The instruction has up to four fields. Each field is evaluated 
separately, The result of each field evaluation is a 36 bit 
quantity. The fields are then assembled as follows: 

1. The op_ field is stored at the current location* 

2. The address field is reduced modulo 2 * and OR e ed into the 
address of the current location. 

An arithmetic - 1 with a negative sign bit is changed to 77777 « 

3. The tag field is multiplied by 2 1 ^ and OR'ed into the 
current location. The instruction CLA* l,k is written {CLA 1 604), 

4. The decrement field is reduced modulo 2 15 and 0R»ed into 
the decrement of the current location. 

Field Evaluations : 

All fields are evaluated in the same way, regardless of their 
position in the instruction. 

2f the field is an atomic, evaluation is as follows: 

nulllfield] -* contents of the celltyoRCK This contains 

the location of the next assembly in 
BPS, if the current assembly is not in 
BPS. Otherwise it contains the origin 
of the current assembly. This symbol is 
used to write patches into BPS. 
eq{ field;*] -* current location 
field c symbol -* sassocC fields symtab 3 
number p [field] "*" actual number 

T -*get[fieldjStSBR] or get[field;FSX3BRj or get { field; SYM] 
or error [L3 3 
If the field is non-atomic, then the evaluation occurs in the 
following order. 

eq[car[ field] $E3 "* cadrffieldj. (E^) will evaluate to 

the compliment pointer to «**» . This 
appears as the address portion of 
the field value. 
eq[ carf field ] % QX ! OTEj -» cons [ NIL? cadr [ field 3 ] . 
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(E c*.) will evaluate as a direct pointer to a cell 
containing in its decrement. This cell is put on the 
protected quote. list. The quote list does not contain 
duplication. 

eqC cart field] $ SPECIAL] ■ -+ get[ field; SPECIAL J . 
T-*the sura of all of the subfield3. 

A non-atomic that does not begin with E, QUOTE, or SPECIAL is 
assumed to be a list of subfields whose values will be added together. 
The subfields themselves may be fields of any type except that 
they may not have sub-subf ields . 
Error Diagnostics 

LI - Unable to evaluate symbolic origin. Wo Assembly. 
L2 - Out of Binary Program Space. Second Pass Cancelled. 
L3 - Undefined symbol. Assembly incomplete. 
L4 - Field with sub-subf ields is illegal. Assembly incomplete. 
OPDE FINE 

To define new quantities for the assembler, use the pseudo-function 

OPDEFINE. Its argument is a list of pairs. The first member of 

each pair is a symbol, the second is a value, 
Example: 

OPDEFINE (( (CLA 0500Q8) 

(TRA 0020Q8) 
(LOAD 100Q) 

(OvBGN 7*32) ) j 
The following op-codes are defined in the system, 

AXT STQ TNZ 

CLA STR TRA 

W ST2 TSX 

SLQ SUB TXI 

STD SXA TZE 

STO " TNX XCA 
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